use dta\Turnout_District_Level, clear 

twoway (lfitci ch_turnout SMD_margin_pre if year==1921,   estopts(cluster(PR_district))) ///
(scatter ch_turnout SMD_margin_pre if year==1921, mstyle(p1) msymbol(Oh) ) ///
(pcarrowi -0.1 0.067 0.4 0.067, msize(zero) lpattern(dash) lcolor(gray) lwidth(medthick)), ///
title("") ytitle("Change in turnout 1918-1921") xtitle(Average first round margin 1909-1918) legend(off) graphregion(fcolor(white)) scheme(s2mono) 
*graph export figures\lfitci\turnout1921_new.tif, replace
*graph export figures\lfitci\turnout1921_new.eps, replace
graph export figures\Figure7.tif, replace
graph export figures\Figure7.eps, replace
